home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 February / 64er_Magazin_87-02_1987_Markt__Technik_de_Side_B.d64 / dia viewer (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  494b  |  16 lines
  1. 3 ifc=1then35
  2. 10 a=a+1:ifa=1thenload"mpmloader",8,8
  3. 12 input"[147]hintergrund";a:poke53281,a
  4. 13 input"vordergrund";a
  5. 14 print"handelt es sich um farbbilder (j/n)":poke198,0:wait198,1:getf$
  6. 15 input"[147]diskette mit lores-bild. einlegen";a$
  7. 16 poke646,a
  8. 17 print"[147]bitte warten"
  9. 18 fort=55296to55296+999:poket,a:next:t=0:d=1:dim a$(100)
  10. 19 read a$(d):d=d+1:ifa$(d-1)<>"*"then19
  11. 20 t=t+1:ifa$(t)="*"thent=0:goto20
  12. 30 poke252,4:poke251,0:sys828,a$(t):iff$="j"thenc=1:c$=a$(t)+".":loadc$,8,8
  13. 35 poke198,0:wait198,1:geta$
  14. 40 goto20
  15. 100 data cowboy,asterix,*
  16.